#!/usr/bin/perl 
use strict;
use warnings;

my @chs = ('a','b','c','d','e','f','g','h','i','j',
	'k','l','m','n','o','p','q','r','s','t','u','v','w','x',
	'y','z','A','B','C','D','E','F','G','H','I','J','K','L',
	'M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
	'!','@','#','$','%','^','&','*','_','-','+','=',':',';',
	',','.','?','/','~','`');

my $LINE_COUNT = 200 * 10000;
my $STRING_LEN = 70;
my $LEN = @chs;

open(my $fh, '>', 'data_perl') or die $!;
for (0 .. $LINE_COUNT) {
	my @lineString;

	for my $j (0 .. $STRING_LEN-1) {
		$lineString[$j] = $chs[ int(rand($LEN)) ];
	}

	print $fh @lineString,"\n";
}
close $fh;
